home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / sasspc.tar / sass / cht.s next >
Text File  |  1990-10-10  |  287b  |  15 lines
  1. move.a    @d1,a        ; new type integer
  2. swap    a,d0
  3. add    10,d0
  4. move.a    @d0,c        ; CONTENTS OF INTEGER
  5. swap    a,d0
  6. add    5,d1        ; POP STACK
  7. inc.a    d        ; FREE SPACE
  8. move.a    @d1,a        ; OBJECT
  9. swap    a,d0
  10. move.a    c,@d0        ; SET NEW TYPE
  11. swap    a,d0
  12. move.a    @d0,a        ;\
  13. add    5,d0        ; RETURN TO SYSTEM
  14. jump    @a        ;/
  15.